COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.macro ref(name,body)⊂
C00004 ENDMK
C⊗;
.macro ref(name,body)⊂
.send bible ⊂}<body≤name≥{⊃
.⊃

.MACRO BIB ⊂
.IF SSNAME ≠ SECNAME THEN FOO←TRUE ELSE FOO←FALSE;
.	SSNAME ← SECNAME ← "BIBLIOGRPAHY";
.	SSNUMBER ← (SECTION+1)&"."
.	SKIP TO COLUMN 1; NEXT SECTION!;
.		BEGIN
.		CENTER
%2SECTION {!}
.		SKIP
.NAM←↑"BIBLIOGRAPHY";
{NAM}%*
.		SKIP 3;
.IF FOO THEN	SEND CONTENTS ⊂ SKIP 2;
∂4{SECTION!}∂8{NAM}→{PAGE!}{SKIP;⊃
.ELSE		SEND CONTENTS ⊂ SKIP ;
∂4{SECTION!}∂8{NAM}→{PAGE!}{SKIP;⊃
.		END	⊃

.AT "⊗↑" name "↑"⊂
.START	SEND bible ⊂}<{PAGE}≤name≥{⊃; "name"; END ⊃

.MACRO biblio ⊂
.begin "bib"
.	PORTION bible
.bib
.	SELECT 1;
.INDENT 0,10;
.	SECNAME ← "BIBLIOGRAPHY";
.at "$"wds "$" ⊂}%3{}wds%*{⊃

.	ww ← wp ← NULL ;
.use ← NULL;
.	AT "<" x "≤" y "≥" ⊂
.		IF "y" ≠ ww THEN START use;use← "#norefs"; BREAK }y##x{ END
.		ELSE IF "x" ≠ wp THEN start  use ←NULL;}, x{ end ;
.		wp ← "x" ; ww ← "y" ; ⊃
.	RECEIVE "≤≥"
.	END "bib"
.⊃